home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
der wurm [lgk]
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
51 lines
1 rem ****************
2 rem * der wurm *
3 rem * *
4 rem * (c)..by *
5 rem * logiker *
6 rem * 14. mar. 94 *
7 rem ****************...freeware
10 poke53280,0:poke53281,0:clr:f$="[159][156][158][149][150][151]"
20 a=247:x=1:hi=1600:goto240
30 foru=1to9
40 readzz(u):readzs(u):kr(u)=1023+zz(u)*40+zs(u)
50 next:return
60 print"[147]lgk[146] [166]";
70 a=247:x=1
80 pokekr(1),177
90 js=peek(56321)
100 ifjs<244orjs=255thenjs=a
110 a=js
120 ifz<24and(jsand2)=0thenprint"[157][166]";:goto160
130 ifs<39and(jsand8)=0thenprint"[166]";:goto160
140 ifs>1and(jsand4)=0thenprint"[157][157][166]";:goto160
150 if(jsand1)=0thenprint"[145][157][166]";
160 gosub180
165 ifx=10then420
170 goto90
180 z=peek(214)
190 s=peek(211)
200 if(z=zz(x))and(s=zs(x))thenx=x+1:print"[157]*";:pokekr(x),176+x:printmid$(f$,x,1);
220 return
230 data10,10,18,11,4,30,19,20,23,36,4,4,10,20,3,34,7,7
240 print"[147] logiker/t-c praesentiert: der wurm [146]
250 [153]"derwurmwaitistunterwegs.ermussjedezahlvon1bis9'essen',";
260 [153]"umzuge-winnen!";
270 [153]"verwendejoystickinport1.
280 print"spielarten:
290 [153]"a)vorgegeben
300 print"b)zufaellig
305 [153]"c)letztekombinationnocheinmal
320 print"logiker/t-cpraesentiert: der wurm [146]":print"[145][145][145][145]ihrewahl: ";
330 print"[157][175]";:geta$:print"[157] ";:ifa$=""then330
340 ifa$="a"thenrestore:gosub30:ti$="000000":goto60
350 ifa$="b"thengosub370:ti$="000000":goto60
355 ifa$="c"andzz(5)<>0thenti$="000000":goto60
360 goto330
370 foru=1to9
380 zz(u)=1+int(rnd(1)*24):zs(u)=int(rnd(1)*35):kr(u)=1023+zz(u)*40+zs(u)
390 next:return
420 dt=ti:ifdt<hithenhi=dt
430 print"lgk[146][157][157][157][157]deinezeit:";dt;"high:";hi;"[146]"
440 goto250